home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr11 / gedvw105.zip / SDX.PRG < prev    next >
Text File  |  1995-03-05  |  961b  |  50 lines
  1. *
  2. *    This creates a report, listing Soundex, full names and record
  3. *    number for each INDI record. It sorts the list using the DOS
  4. *    sort command. Ther must be sufficient available memory for the
  5. *    sort.  The sorted file, if completed, is given the base name
  6. *    of the processed GEDCOM file with .SDX as the extension.
  7. *
  8. *    for GEDView 1.05
  9. *    michael@genealogy.emcee.com - 3 Mar 1995
  10. *
  11. save list.txt ""
  12. remember record
  13.  
  14. go 1
  15. find global @ INDI
  16.  
  17. :continue
  18.     show $NUMBER
  19.     ifescape
  20.         goto the_end
  21.     get name
  22.     iffailed
  23.         goto next_one
  24.     fixname
  25.     gosub print-line
  26.  
  27. :next_one
  28.     find next
  29.     iffailed
  30.         goto the_end
  31.     goto continue
  32.  
  33. :the_end
  34.     system sort < list.txt > $GEDBASE.sdx
  35.     system del list.txt
  36.     go record
  37.     set display on
  38.     end
  39.  
  40. :print-line
  41.     set #width -5
  42.     append list.txt $SOUNDEX
  43.     set #width -20
  44.     append list.txt $LASTNAME
  45.     append list.txt $FIRSTNAME
  46.     set #width 4
  47.     append list.txt $NUMBER
  48.     append list.txt "\J"
  49.     return
  50.